home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SmartHeart
/
SmartHeart (Harley Street Software)(SoftKey)(1994).ISO
/
mtb30mm.sbk
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1994-07-11
|
32KB
|
453 lines
Iitemnum
Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
killtbkmmsbk
tbkmm.sbk
itemnum
Cancel
Warning! Altering the script for this system book may cause multimedia applications to break!
Proceed
author
killtbkmmsbk
"Microsoft Windows
fMultimedia
xpresent. No multimedia devices
widgets will work."
itemnum(
I tmplist
"Warning! Altering the
8may cause
applications
f"Proceed"
"Cancel"
tbkmmversion
DlgTitle
Multimedia System Book3
DlgTitle
Multimedia System Book
author
JpISimPjmIeAEos
Tms Rmn
Tms Rmn
BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM
tbkMCIchk cmd,notif,req,brk
ZretVal
sysErrorNumber
tbkmci(
syserrornumber<>0
tbkmmerrorstring(
tbkBitmapChk
-- When
]TBKBMP.DLL standalone, you should
modify
-- function
use the bitmap
reporter
tbkbmperrorstring(
brk<>
--Cover functions
--These allow authors
pass
device alias instead
tbkMCIPositionWindow devAlias,windowPos,flags
Zhwnd
9("status" &&
3 && "
","")
tbkPositionWindow(
tbkMCICenterWindow
&& "
","")
tbkCenterWindow(
tbkBitmapPositionWindow
&& "
tbkBitmapCenterWindow
&& "
tbkMCIGetWindowRect
&& "
","")
tbkGetWindowRect(
tbkBitmapGetWindowRect
&& "
4s_mminit
tbkMMInitializeSystem
-- guard against
4having been restored!
{ <>
stuff used
Hwidgets
X"tb30win.dll"
YieldApp()
<> 0
"TB30WIN.
xfound. Some
Z may
xwork"
X"tb30dlg.
OpenDlg(
<> 0
"TB30DLG.
-- REMOVED
readdmm
multimedia
"winhelp.exe
.hlp"
tbkmmdevices
4s_mmdevices
f("Multimedia")
c"Help"
-- stub so some
will
without ES boxes
checkdevice
-- General utility
-- Someday, ToolBook
Thave built-
data type checking
isNumber x
x + 0
--repair 3D
resizing them
sized
Zsnap, txCN, hi, lo
txClassName
K <>
"Repair 3D
f"&Yes"
"&No"
c"No"
sysSuspendMessages
recessed
c"3DFrame"
+ 15,
+ 15,\
+ 15,
"3DField"
"3DRect"
znothing
- 15,
- 15,\
- 15,
+ 15,
+ 15,\
+ 15,
-- Slider control
begins here
-- NOTES ABOUT IDENTIFIERS
-- s___ prefix ->
handler
only
c"Thumb"
___setSliderLimits
4s___v, s___min, s___max, s___p
down\
prevent updating
mouse
xmoved
"HSliderThumb"
loc -
___slidePos(
"VSliderThumb"
sliderPosition
___snapSlider\
(1 -
glide
width
height
p, s1, s2
b(0,(p - s1) /(s2 - s1))
thumb
-- Another
controlling
OldMin
OldMax
j(1,(
b(0,p)))
"vSliderThumb"
pOffset
) * (1-p)
newPos
"hSliderThumb"
) * p
-- Restore state
detentList
detents
catchRange
0 <>
ends
-- This initialization usually
runs ONCE, unless
app calls
tbkmmInitializeSystem
asure MME
loaded
X"mmsystem.
killtbkmmsbk
X"mtb30mm.
--
private (exported, but undocumented)
tbkmmloadextensions( )
-- The
these are
standard
J entry points
tbkmmversion()
-- MCI central interface
-- BMP
tbkGraphic(
-- parallel
MMSYSTEM
tbkTimerStart(
tbkTimerStop(
tbkTimerCapability()
-- Utility
\ MilliSecFromMSF(
\ MilliSecFromHMS(
\ MilliSecFromSMPTE(
MSFFromMilliSec(
HMSFromMilliSec(
SMPTEFromMilliSec(
-- Translation
tbkMMTranslate(
-- Mixer
tbkMMMixer(
<> 0
"MTB30MM.
link failed"
support
<> 0
-- End
Script
0v#n#n#
.&+ +E
tbkmmerrorstring
tbkmci
tbkMCIchk
.&+ +E
tbkmmerrorstring
tbkBitmap
tbkBitmapChk
tbkMCI
%tbkPositionWindow
window handle
status
tbkMCIPositionWindow
tbkCenterWindow
tbkMCI
window handle
status
tbkMCICenterWindow
tbkBitmap
window
%tbkPositionWindow
status
tbkBitmapPositionWindow
tbkBitmap
tbkCenterWindow
window
status
tbkBitmapCenterWindow
tbkMCI
tbkGetWindowRect
window handle
status
tbkMCIGetWindowRect
tbkBitmap
window
tbkGetWindowRect
status
tbkBitmapGetWindowRect
tbkMMInitializeSystem
s_mminit
enterSystem
TB30DLG.DLL not found. Some widgets may not work
tb30win.dll
tb30dlg.dll
OpenDlg
tbkMMInitializeSystem
s_mminit
TB30WIN.DLL not found. Some widgets may not work
YieldApp
enterbook
s_mmdevices
tbkmmdevices
checkdevice
isNumber
^recessed
3DFrame
author
3DField
Repair 3D object after resizing?
txClassName
3DRect
recessed
sized
"___setSliderLimits
false
txClassName
Thumb
buttonDown
1,"!#
s___p
false
s___v
HSliderThumb
___slidePos
s___max
VSliderThumb
txClassName
s___min
buttonStillDown
s___v
false
s___p
HSliderThumb
___slidePos
s___max
VSliderThumb
txClassName
s___min
i0___snapSlider
sliderPosition
buttonUp
s___v
HSliderThumb
s___max
VSliderThumb
txClassName
s___min
glide
___setSliderLimits
___slidePos
sliderPosition
"___setSliderLimits
newPos
OldMax
hSliderThumb
pOffset
group
SliderThumb
s___max
OldMin
vSliderThumb
txClassName
s___min
thumb
sliderPosition
sliderPosition
detents
detentList
___snapSlider
mmsystem.dll
tbkmmloadextensions
tbkmmversion
tbkmmerrorstring
tbkMCI
tbkGraphic
tbkTimerStart
tbkTimerStop
tbkTimerCapability
MilliSecFromMSF
MilliSecFromHMS
MilliSecFromSMPTE
MSFFromMilliSec
HMSFromMilliSec
SMPTEFromMilliSec
tbkMMTranslate
tbkGetWindowRect
tbkPositionWindow
tbkCenterWindow
tbkMMMixer
killtbkmmsbk
tbkmmerrorstring
s_mmdevices
jtbkmmloadextensions
tbkmmInitializeSystem
s_mminit
mmsystem
MTB30MM.DLL link failed
mtb30mm.dll
tbkmmInitializeSystem
CDBSE&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
Re&place...
replace
Aut&hor F3
author
&Text
&Character... F6
character
&Paragraph... F7
paragraph
&Regular Ctrl+Space
regular
&Bold Ctrl+B
&Italic Ctrl+I
italic
&Underline Ctrl+U
underline
Stri&keout Ctrl+K
strikeout
Superscrip&t/Subscript
superscriptSubscript
&Normal Script
normalscript
Su&bscript Ctrl+L
subscript
Su&perscript Ctrl+Shift+L
superscript
&Show Hotwords F9
showhotwords
&Page
&Next Alt+Right
&Previous Alt+Left
previous
&First Alt+Up
first
&Last Alt+Down
&Back Shift+F2
&History... Ctrl+F2
history
N&ew Page Ctrl+N
newpage
&Help
&Contents F1
contents
Status &Bar F12
statusbar
AkU'9
?S;uD
zc%C1
GAMES GRP